home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / utils / fsck.zoo / __lastfull.s < prev    next >
Text File  |  1986-04-23  |  2KB  |  99 lines
  1. ****** **     ****  *****  **    **
  2. ****** **    ****** ****** **    **
  3. **     **    **  ** **  **  **  **
  4. **     **    **  ** ** **    ****
  5. ** *** **    **  ** ****      **
  6. **  ** **    **  ** ** **     **
  7. ****** ***** ****** **  **    **
  8. ****** *****  ****  **   **   **
  9.  
  10. **  ** ** **    **    ****** *****
  11. **  ** ** **    **    ****** ******
  12. ** **  ** **    **    **     **  **
  13. ****   ** **    **    ****   ** **
  14. ** **  ** **    **    **     ****
  15. **  ** ** ***** ***** ****** ** **
  16. **  ** ** ***** ***** ****** **  **
  17.  
  18.  
  19. ; (C) KILLER D from FMC-CONNEXION
  20. ; ( Full Metal Computers Connexion )
  21. ; (C) Killer D Software 90 inc.
  22. ; -- le génie, ça ne s'invente pas --
  23.  
  24. * BUT DE LA RUSE:
  25. * APPELLER UNE ROUTINE QUI AFFICHE 
  26. * CORRECTEMENT LE FULLSCREEN
  27. *
  28. * DESCRIPTION DE LA RUSE:
  29. * ON PLANQUE A L'ADRESSE $130AC UN MOT-LONG
  30. * DANS LEQUEL SE TROUVE L'ADRESSE DE L'ECRAN
  31. * EN RAM...
  32. *
  33. * AVANTAGE DE LA RUSE:
  34. * -ON PEUT AVOIR SES FULLSCREENS EN  GFA,
  35. * OMIKRON,C, tout quoi...
  36. * -SOURCES ALLEGEES (PAS EN TAILLE, EN LIGNES).
  37. *
  38. * VARIANTES DE LA RUSE:
  39. * -NE PAS CHARGER LA ROUTINE, MAIS LA METTRE UNE BONNE
  40. *  FOIS POUR TOUTES EN RAM ET L'EXECUTER COMME CA...
  41. *
  42. *            KILLER D, la fée de votre ST.
  43.  
  44.     SECTION TEXT
  45.  
  46. * BETE MSHRINK, POUR L'EXEC...
  47. * Ceci est la seule partie de ce source que je n'ai pas
  48. * programmé moi-meme... C'est Yoda ( v8 ) qui me l'avait
  49. * filé (le mhsrink) quand j'étais jeune....
  50.  
  51.     MOVE.L    4(A7),A0    
  52.     MOVE.L    $C(A0),D0
  53.     ADD.L    $14(A0),D0
  54.     ADD.L    $1C(A0),D0
  55.     ADD.L    #$800,D0
  56.     ANDI.L    #-2,D0
  57.     LEA.L    0(A0,D0),A7
  58.     MOVE.L    D0,-(A7)
  59.     MOVE.L    A0,-(A7)
  60.     CLR.W    -(A7)
  61.     MOVE.W    #$4A,-(A7)  *code mshrink
  62.     TRAP     #1
  63.     ADD.L     #12,A7
  64.  
  65. * On place l'adresse de l'ecran a l'adresse $130AC
  66. * Vu que la routine est appellée immédiatement après, le LM
  67. * ne sera pas scratché. Et 4 octets avant l'écran, il ne
  68. * scratchera rien non plus...
  69.  
  70. * Si l'adresse ne vous plait pas, allez voir MONST.
  71.     
  72.     LEA PICTURE,A0
  73.     MOVE.L A0,D0
  74.     MOVE.L D0,$130AC 
  75.  
  76. * APPEL DE FULLROUT.ZZZ
  77.  
  78.     PEA    0    * pas de passage de paramètres, ça deconne !
  79.     PEA    0    * charger et executer.
  80.     PEA    NOM  * Fullrout.zzz en l'occurence 
  81.     CLR.W    -(SP)
  82.     MOVE    #$4B,-(SP) *code pexec
  83.     TRAP    #1
  84.     ADDA.L    #16,A7
  85.  
  86.     CLR.L -(SP)
  87.     TRAP #1           * quitter
  88.  
  89.  
  90.     section DATA
  91.  
  92.     EVEN
  93. NOM:    DC.B "B:\FULLROUT.ZZZ",0
  94.     EVEN
  95.  
  96. PICTURE INCBIN "B:\A.KID" *mettre ne nom de l'image a charger ici !!
  97.  
  98.     END
  99.